From: Jay Belanger Date: Sun, 8 Jul 2007 00:17:08 +0000 (+0000) Subject: (math-bignum-logb-digit-size,math-bignum-digit-power-of-two): Evaluate X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18044 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d867b743ae1aeb83351c99712d527402bc0124ec;p=emacs.git (math-bignum-logb-digit-size,math-bignum-digit-power-of-two): Evaluate when compiled. --- diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index 8f3c9468d88..fa8ba118c8c 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el @@ -34,13 +34,13 @@ ;;; Some useful numbers (defconst math-bignum-logb-digit-size - (logb math-bignum-digit-size) + (eval-when-compile (logb math-bignum-digit-size)) "The logb of the size of a bignum digit. This is the largest value of B such that 2^B is less than the size of a Calc bignum digit.") (defconst math-bignum-digit-power-of-two - (expt 2 math-bignum-logb-digit-size) + (eval-when-compile (expt 2 math-bignum-logb-digit-size)) "The largest power of 2 less than the size of a Calc bignum digit.") ;;; b-prefix binary commands.